home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / dev / amos / AMOSL0595.lzh / AMOSLIST / 000097_svcs1.digex.net!amos-request_Mon May 22 09:39:12 1995 remote from cristal.msg < prev    next >
Internet Message Format  |  1995-06-01  |  5KB
  1. Return-Path: <amos-request@svcs1.digex.net>
  2. Received: from svcs1.digex.net by cristal.mpx.com.au with smtp
  3.     (Smail3.1.28.1 #3) id m0sDKaL-0000MPC; Mon, 22 May 95 09:39 AEST
  4. Received: by svcs1.digex.net id AA05339
  5.   (5.67b8/IDA-1.5 for amos-out); Sun, 21 May 1995 16:09:17 -0400
  6. Received: from www1.access.digex.net by svcs1.digex.net with SMTP id AA05335
  7.   (5.67b8/IDA-1.5 for <amos-list@svcs1.digex.net>); Sun, 21 May 1995 16:09:16 -0400
  8. Received: from phoenix.inka.de by www1.access.digex.net with SMTP id AA15926
  9.   (5.67b8/IDA-1.5 for <amos-list@access.digex.net>); Sun, 21 May 1995 16:07:54 -0400
  10. Received: from mips.pfalz.de by phoenix.inka.de with bsmtp
  11.     (Smail3.1.29.1 #13) id m0sDHBr-0004B5C; Sun, 21 May 95 22:01 MET DST
  12. Received: from kiste.pfalz.de by mips.pfalz.de with cbsmtp
  13.     (Smail3.1.28.1 #4) id m0sDFIR-000CnTC; Sun, 21 May 95 20:00 MET DST
  14. X-Zc-Via: 19950521161218W+1@kiste.pfalz.de
  15. X-Zc-Via: 19950521123521W+1@sixpack.pfalz.de
  16. From: chris@sixpack.pfalz.org (Chris Hodges)
  17. Subject: Re: rtez_on_myscreen?
  18. Message-Id: <vvxYUMD261agz5@p22.sixpack.pfalz.org>
  19. Date: Sun, 21 May 95 10:29:40 CET
  20. X-Mailer: MicroDot 1.10 [REGISTERED 000261]
  21. X-Zc-Telefon: V+49-89/8005856
  22. X-Zc-Post: Kennedystrasse 8; D-82178 Puchheim; Germany
  23. Path: kiste.pfalz.de!sixpack.pfalz.de
  24. To: amos-list@access.digex.net
  25. X-Gateway: ZConnect CL kiste.pfalz.de [Connectline/AmigaOS]
  26. References: <9505191257.AA21992@tc6.chem.ruu.nl>
  27. Status: RO
  28. X-Status: 
  29.  
  30. m.g.d.wehrens@chem.ruu.nl (Martijn Wehrens) wrote on 19.05.1995 some
  31. text under the subject rtez_on_myscreen?. I can't leave this
  32. uncommentated ;-)
  33.  
  34. MW> The problem is: how do I set the 'screen'-tag in the taglist or what
  35. MW> ever it is called in amos ? I studied the c-source 'demo.c'-file in the
  36. MW> distribution but I have no idea where I must 'loke' my screen-base in
  37. MW> order to have RT recognize it.
  38.  
  39. OpenScreen is obsolete... OpenScreenTagList (V36+) is the one you're
  40. longing for...
  41.  
  42. This a working solution and requires 2.0+:
  43.  
  44. ' OpenIntScreen by Chris Hodges (21-May-95)
  45. Screen Open 0,320,256,32,0
  46. Curs Off : Flash Off : Paper 0 : Pen 1 : Cls 
  47. ' Assign TAG list  
  48. Gosub INITSCREENTAGS
  49. ' Reserve memory for a colormap structure
  50. Reserve As Work 14,33*8
  51. ST=Start(14)
  52. For A=0 To 31
  53.   C=Colour(A)
  54.   Doke ST,A
  55.   Doke ST+2,(C and $F00)/256
  56.   Doke ST+4,(C and $F0)/16
  57.   Doke ST+6,C and $F
  58.   Add ST,8
  59. Next 
  60. Doke ST,-1
  61. ' Create Taglist... add tags at your choice... 
  62. TAGSTART
  63. TAG[SA_QUIET,-1]
  64. TAG[SA_WIDTH,320]
  65. TAG[SA_HEIGHT,256]
  66. TAG[SA_DEPTH,5]
  67. TAG[SA_TYPE,$F] : Rem CUSTOMSCREEN, $2=PUBSCREEN     
  68. TAG[SA_BITMAP,Leek(Screen Base+$150)] : Rem AMOS Bitmap structure
  69. TAG[SA_COLORS,Start(14)]
  70. TAG[0,0]
  71. ' Now open the screen... 
  72. Amos To Back 
  73. Areg(0)=0 : Areg(1)=Start(15)
  74. SCR=Intcall(-$264) : Rem OpenScreenTagList
  75. If SCR<>0
  76.   ' Draw some thingies on the screen...
  77.   Gr Writing 0
  78.   For A=1 To 31
  79.     Ink A : Text 31-A,100-A,"This is AMOS calling intuition!"
  80.     Circle 200,170,A
  81.   Next 
  82.   ' Provisory "wait left mouse button" routine... no not use 
  83.   ' in your programs, write system conform replacements please...
  84.   Repeat : Multi Wait : Until(Peek($BFE001) and 64)=0
  85.   ' Close screen (or wait until all windows have been closed)
  86.   Repeat 
  87.     Areg(0)=SCR : RES=Intcall(-$42) : Multi Wait 
  88.   Until RES=1
  89. End If 
  90. Amos To Front 
  91. Erase 15
  92. Erase 14
  93. End 
  94. ' Screen Tags... refer to intuition/screens.i includes for detailed  
  95. ' information on the tags... 
  96. INITSCREENTAGS:
  97.   TS=$80000000+33
  98.   SA_LEFT=TS
  99.   SA_TOP=TS+1
  100.   SA_WIDTH=TS+2
  101.   SA_HEIGHT=TS+3
  102.   SA_DEPTH=TS+4
  103.   SA_DETAILPEN=TS+5
  104.   SA_BLOCKPEN=TS+6
  105.   SA_TITLE=TS+7
  106.   SA_COLORS=TS+8
  107.   SA_ERRORCODE=TS+9
  108.   SA_FONT=TS+10
  109.   SA_SYSFONT=TS+11
  110.   SA_TYPE=TS+12
  111.   SA_BITMAP=TS+13
  112.   SA_PUBNAME=TS+14
  113.   SA_PUBSIG=TS+15
  114.   SA_PUBTASK=TS+16
  115.   SA_DISPLAYID=TS+17
  116.   SA_DCLIP=TS+18
  117.   SA_OVERSCAN=TS+19
  118.   SA_OBSOLETE1=TS+20
  119. ' *BOOLEANS* 
  120.   SA_SHOWTITLE=TS+21
  121.   SA_BEHIND=TS+22
  122.   SA_QUIET=TS+23
  123.   SA_AUTOSCROLL=TS+24
  124.   SA_PENS=TS+25
  125.   SA_FULLPALETTE=TS+26
  126.   SA_COLORMAPENTRIES=TS+27
  127.   SA_PARENT=TS+28
  128.   SA_DRAGGABLE=TS+29
  129.   SA_EXCLUSIVE=TS+30
  130.   SA_SHAREPENS=TS+31
  131.   SA_BACKFILL=TS+32
  132.   SA_INTERLEAVED=TS+33
  133.   SA_COLORS32=TS+34
  134.   SA_VIDEOCONTROL=TS+35
  135.   SA_FRONTCHILD=TS+36
  136.   SA_BACKCHILD=TS+37
  137.   SA_LIKEWORKBENCH=TS+38
  138.   SA_RESERVED=TS+39
  139.   SA_MINIMIZEISG=TS+40
  140. Return 
  141. Procedure TAGSTART
  142.   Shared TAGST
  143.   Reserve As Work 15,128
  144.   TAGST=Start(15)
  145. End Proc
  146. Procedure TAG[TAG,V]
  147.   Shared TAGST
  148.   Loke TAGST,TAG : Loke TAGST+4,V : Add TAGST,8
  149. End Proc
  150.  
  151. Bye, Chris Hodges <chris@sixpack.pfalz.org>      __    __
  152. A4000/400/CD/'30er; AMOS Extension-Coder    __  ///   / / _____
  153. GCS d H s-:++ !g p? !au a18 w++ v? C+++     \\\///   / /_/ ___/ LOGOUT
  154. E---- N++ K- W------ -po+ t++@ !5 j-- R+ G?  \XX/    \__/ __/  FASCISM!
  155. tv- b+ D-- B? e+(++)* u++ h! f !r n+ !y+ AMIGA RULEZ!   \/
  156.  
  157. Alltami (n.)
  158.   The ancient art of being able to balance the hot and cold shower
  159.   taps.
  160. (from: "The Deeper Meaning of Liff")